00010 



XLIST 
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00030 
00040 
00050 



DTSIZ=1 
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000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000010 

000011 
000012 
000013 
000014 
000015 
000016 
000017 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000030 
000031 
000032 
000033 



602600 
260140 
201054 
603000 
260140 
550040 
272040 
201066 
550101 

505042 
272100 
332000 
303100 
254000 
336101 
263140 
316114 
254000 
270040 
321040 
262140 
254000 
554114 
322100 
554241 
302242 
254000 
254000 



777760 

000000 

000003 

000002 

000343' 

000007 

000014 

000000 

000000 

777603 
000001 
000002 
000174 
000000 
000000 

000000 
000000 

000026' 

000034' 

000016' 

000001 

000000 

000001 

000000 

000001 
000000 
000022' 
000027' 



000034 000004 000004 



00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 



SUbROUT 
PROG CO 
DEVDAT 
UUO CON 
FORMAT 



INTERNAL 
EXTERNAL 



UDIRSH: 



UDIR2: 



UDIR3: 



UDIR4 



INE FOR 
NTaINS 

CONTAIN 

Tains r 

PUSHJ 
JRST 

norma 

ULOOK, 
UXIT,P 
UDIRL 
UDIRI 
UOIRE 
UNWFR 
ULINK 
UX1 = T 
UX2 = T 
UX3 = D 
TRNE 
PUSHJ 
MOVEI 
TLNE 
PUSHJ 
HRRZ 
ADDM 
MOVEI 
HRRZ 

HRLI 
ADDM 

SKIPE 

CAILE 

JRST 

SKIPN 

POPJ 

CAMN 

JRST 

ADD U 

JUMPL 

POP P 

JRST 

HLRZ 

JUMPE 

HLRZ 

CAIE 

JRST 

JRST 



DIRECTOR 
ACTUAL ST 
S ACTUAL 

elative a 

POP, UDI 
X 
L RETURN 

UENTER 
UUOACIOI 
N = 4 
N = 100 
N = 200 
E = 400 
F=1000 
AC 
ACl 
AT 
UUO, 77776 

PDP.AORC 



Y SEAR 
ART OF 
START 
DDRESS 
RSH 



CH 

PROGRAM 
OF DVDB 

OF DIRECTORY ENTRY IN USER AREA 

;RETURN IF EMPTY ENTRY FOUND 
NTRY IS FOUND 



WHEN E 

err.direrr.adrck.cpopjl.thsdat 

;directory in 

;directory entered into 

;free block pointer changed 

jlast output block linked to storage 



TAC, 
lOS, 

POP, 
UXl, 
UXl, 



3(UU 

lOBE 

UBE 

PROG 
UUO 



UXl.eUDI 
UX2, 0(UX 





K 

0) 

G 

G 



R(DEVD 
1) 



; IS BLOCK IN UUO ACS? 
;N0. CHECK ADDRESS 



-tD129+UDI 
UXl 



UXl, 
UX2, 

UX2 

UX2,174 
DIRERR 

UX2, (UXl) 
PDP, 

UX2, 0{UUO) 
UDIR4 
XI. UDIRKl 

UXl, UDIR2 
DP, UXl 
UXIT 
UX2, 1 (UUO) 

UX2, CPOPJl 
UX3, 1 (UXl) 
UX3, (UX2) 
UDIR3 
CPOPJl 



;COPY ADR OF START OF PROGRAM 

;ACTUAL START OF DIR. IN USER 
AT) ;ACTUAL POINTER TO DIRECTORY 

{RELATIVE ADDR OF 1ST ENTRY I 

{DIRECTORY 
RLN(UX2) {ENTRY COUNTER 

{START OF 1ST ENTRY IN DIRECT 

{IS THE REL ADR OF 1ST ENTRY INSIDE BUF 
{NO 

{FIRST WORD OF ENTRY 

{SPACES FOUND 

{CHECK IF = TO USER AREA 

{CHECK 2ND WORD 



{TAKE PREVIOUS EXIT FROM TABL 

{TABLE FULL 

{2ND WORD IN USER ARE 

{2ND WORD OF DIRECTORY AREA 

{CHECK MORE ENTRIES 
{MATCH, SKIP RETURN 



UDIRKi: 



XWD UDIRLN, UDIRLN 
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000035 
000036 
000037 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000050 
000051 



000052 
000053 
000054 
000055 
000056 
000057 
000060 
000061 
000062 



260140 
254000 
540241 
506246 
505101 
541114 
251114 
135100 
326100 
200100 
137100 
3500f?!3 
254000 



260140 
254000 
35-0246 
542254 
506246 
250040 
661000 
202006 
254000 



000000' 

000025' 

000001 

000007 

000000 

000000 

000003 

001272' 

000050' 

000000 

001273' 

000000 

000311' 



0000051' 

000054' 

000000 

000001 

00001« 

000014 
001600 
000002 
000041' 



00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00860 
00870 
00880 
00890 



;SUBROUTINE FOR DIRECTORY LOOKUP 
{FORMAT 



PUSHJ POP, UDIRLU 
JRST X 



;VIA UUO 

JENTRY NOT IN TABLE 



ULOOK: 



ULOOKl 



; TABLE FULL 



{from directory 
;to user 



PUSHJ PDP, UDIRSH 

JRST UXIT 

HRR UX3, 1 (UXl) 

HRLM UX3, OEVIAD (DEVDAT) 

HRLI UX2, (UXl) 

HRRI UX2, (UUO) 

BLT UX2, UDIRLN-l(UUO) 

LDB UX2, [POINT 12, 2 ( UXl ), 35 3 {GET DATE USER( ENTER)EXEC (LOO 

JUMPN UX2, .+3 {IS IT 0? 

MOVE UX2,THSDAT {YES, USE CURRENT DATE 

DPB UX2. [POINT 12,2(UU0),35] {SET EXEC 

AOS (PDP) 

JRST UTWDR 

SUBROUTINE TO ENTER NEW OR CHANGE OLD DIRECTORY ENTRY 
FORMAT PUSHJ PDP, UDIRCH 

JRST X {NO ROOM IN TABLE 

UENTER: PUSHJ PDP, UDIRSH 
JRST .+1 

AOS UX3, UFREE (DEVDAT) 
HRRM UX3,1(UU0) 
HRLM UX3, DEVOAD (DEVDAT) 
EXCH UXl, UUO 

TLO lOS, UDIRFN+UNWFRE+ULINKF 
MOVEM IDS, DEVIOS(DEVDAT) 
JRST ULOOKl 
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000063 
000064 
C100065 
000066 
000067 
000070 
000071 
000072 
000073 



000074 
000075 
000076 
000077 

000100 

000101 
000102 
000103 
000104 
000105 
000106 
000107 
000110 
000111 



135040 
200301 
322300 
554046 
302040 
254000 
200006 
621000 
661000 



200046 
200100 
202101 
507000 
253040 
402001 
200100 
350000 
251042 
201040 
202046 
202006 
260140 
254000 



000000 
000000 
000000 

000000 

446441 

000036' 
000002 
000002 
000700 



000007' 
001274' 

000000 

000001 

000101 ' 

000000 

000001 

000001 

000176 

000001 

000054' 

000002 

000326' 

000070' 



00900 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 
01000 
01010 
01020 
01030 
01040 
01050 
01060 

01070 
01080 
01090 
01100 
01110 
01120 
01130 
01140 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 



JCREaTE a clean TAPE AND DIRECTORY 



INTERNAL 
EXTERNAL 



UTPCLR 



UTPCLR 
USRJOA 



IFE DTSIZ 
;THIS FOR 



LOB 

MOVE 

JUMP 

HLRZ 

CAIE 

JRST 

MOVE 

TLZ 

TLO 

< 

SING 

MOVE 

MOVE 

MOVE 

HRLS 

AOBJ 

SETZ 

MOVE 

AOS 

BLT 

MOVE 

MOVE 

MOVE 

PUSH 

JRST 



TAC.P 
DEVD 

E DEV 
TAC, 
TAC, 
UXIT 
lOS, 

lOS, I 

lOS.U 

LE DI 

TAC, 

TACl 

M TAC 

TAC 
N TAC 
M (TA 
TACl 
TAC 
TACl 
I TAC 
M TAC 
M lOS 
J PDP 
UXIT 



UUOAC 

AT,USRJDA(TAC) 
DAT, lOIERR 
DEVNAM(DEVDAT) 
446441 

;N0T OTA 
OEVIOS(DEVDAT) 
OBEG 
DIRIN+UDIREN+UNWFRE 

MOVFM DEVDAT,DIREC> 
RECTORY ONLY 
UDIR(DEVDAT) 
,CXWD 1,53 
1, (TAC) 

, .+1 

C) 

,TAC 

76(TAC1) 

, 1 

, UFREE (DEVDAT) 

, DEVIOS(DEVDAT) 



UTPREL 



;end of dtor 
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R=10000 



C500112 
000113 
000114 
000115 
000116 
000117 
000120 
000121 
000122 
000123 
000124 



254000 
254000 

254000 
254000 
254000 
254000 
254000 
254000 
254000 
254000 
254000 



000326 
000312 
000125 
000204 
000052 
000035 
000633 
001022 
000272 
000267 
000277 



01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 

;dt reverse 

01510 
01520 
01530 
01540 
01550 
01560 
01570 
01580 
01590 
01600 
01610 
01620 
01630 
01640 
01650 



UREV=10000 
DTSIZ=1 



;DT REVERSE BIT 
;l FOR ONE BUFFER 



PER TAPE UNIT 



U8LK=i ;number of blocks/block 

UCHN=1 ;CHANNEL of DATA CONTROL = 1. LOC 

UCHA=42 ;DATA CONTROL INTERRUPT POSITION 

EXTERNAL UX I T . ADVBFF, ADVBFE , I OSET, OUT, WA ITl, WSyNC 
EXTERNAL P I OMOO , PUN I T. UFREE , UOI R, ADRERR, JOBPF I 
ENTRY UTDSP 



42 



DACI=4010 
DACO=3410 
SL=220000 

DTR=3000 
DT=2000 
RD=300 
WD=700 
RB=200 
VE0T=2 
BIT 

JDE=40000 
EE=100000 
URDIR=2000 



UTDSP: 



JRST 
JRST 
JRST 
JRST 
JRST 
JRST 
JRST 
JRST 
JRST 
JRST 
JRST 



UTPREL 

UTPCLS 

UOUT 

UIN 

UENTER 

ULOOK 

UDMPO 

UDMPI 

SETO 

SETI 

GETF 



JDC INPUT DT 

;DC OUTPUT DT 

JDT TURN ON, SELECT 

;DT TURN AROUND 

;DT START/STOP DELAY 

;dt RD 

;dt wr 

;dt read block nos. 

;E0T FLAG BIT 

;JOB DONE ENABLE 
;ENABLE END FLAG 
;READING DIRECTORY 

;release 

;CLOSE 
;OUTPUT 
; INPUT 

;enter in directory 

;L00KUP in directory 

jdumpout 
;dumpin 

;SET OUTPUT block NO. 
;SET INPUT block NO. 

;get free block 



delay 
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01660 








01670 


000125 


260140 


001142' 


01680 


000126 


661000 


000020 


01690 


000127 


550046 


000010 


01700 


000130 


270040 


000007 


01710 


000131 


554106 


00001f/l 


01720 


000132 


306100 


000001 


01730 


000133 


254000 


000171' 


01740 


000134 


554101 


000001 


01750 


000135 


621000 


001000 


01760 


000136 


326100 


000144' 


01770 


000137 


623000 


000002 


01780 


000140 


260140 


000370' 


01790 


000141 


661000 


001400 


01800 


000142 


202006 


000002 


01810 


000143 


350106 


000106 ' 


01820 


000144 


306100 


000001 


01830 


000145 


400100 


000000 


01840 


000146 


506101 


000001 


01850 


000147 


552040 


001121' 


01860 


000150 


544046 


000010 


01870 


000151 


506106 


000010 > 


01880 


000152 


254000 


000375' 


01890 
01900 
01910 


000153 


200046 


000010 


01920 


000154 


505040 


000007 


01930 


000155 


515100 


400000 


01940 


000156 


412120 


000001 


01950 


000157 


554106 


00001(71 


01960 


000160 


322100 


000167' 


01970 


000161 


540060 


000001 


01980 


000162 


542046 


000010 


01990 


000163 


602000 


00004R 


02000 


000164 


254000 


000167' 


02010 


000165 


335020 


000001 


02020 


000166 


254000 


000126' 


02030 


000167 


262140 


000001 


02040 


000170 


254000 


001220' 


02050 



uout: pushj pop, uinter 

TLO IDS. 10 

HRR2 TAC,DEV0AD(DEVDAT) 

ADD TAC, prog 

HLRZ TACl.DEVOADCDEVDAT) 

CAIN TACl.l 

JRST U0UT4 

HLRZ TACl, KTAC) 

TLZ lOS, ULINKF 

JUMPN TACl. UOUTl 

TLZE lOS. IOBFG 

PUSHJ pop. UBEG3 

TLO lOS.UNWFRE+ULINKF 

MOVEM IDS. DEVIOS (DEVDAT) 

AOS TAC1,UFREF(DEVDAT) 
UOUTi: CAIN TACl.l 

SFTZ TACl, 

HRLM TACl. KTAC) 

HPRZM TAC.UBUF 

HLR TAC,DEVOAD(DEVOAT) 

HRLM TACl, DEVOAD(DEVDAT) 

JRST USETW 
;RETURN FROM WRITING 1 BLOCK 

U0UT2: MOVE TAC. DEVOAD (DEVDAT ) 

HRLI TAC, PROG 

HRLZI TACI.IOUSE 

ANDCAM TAC1.9TAC 

HLRZ TACl.DEVOAD(DEVDAT) 

JUMPE TAC1.U0UT3 

HRR TAC.^TAC 

HRRM TAC,DEVOAD(DEVDAT) 

TRNE lOS. lOCON 

JRST U0UT3 

SKIPGE @TAC 

JRST UOUT+1 
U0UT3: POP PDP. TAC 

JRST DTCl 



JCHECK INTERLOCK 
;WRITING 

.'ACTUAL BUFFER ADDRESS 
;8L0CK TO WRITE 

;C0PY DIRECTORY 

;BL0CK TIE 

;N0T LINKED TO FREE STORAGE 

;USE BLOCK NUMBER INDICATED 

;GET FREE STORAGE BLOCK 

;LINKED to FREE STORAGE 

.•NEXT FREE BLOCK 

; IF 1, THIS IS LAST BLOCK 

JLAST BLOCK TIE = 

5BL0CK 

;ACTUAL LOCATION OF DATA 

;next block 



;PROG, BUFFER ADDRESS 

;SET USE BIT IN BUFFER 

JBLOCK TIE 

;WAS BLOCK WRITTEN THE LAST 

;PROG. NEXT BUFFER ADDRESS 

;NEXT BUFFER 

;CONTINUOUS? 

;STOP TAPE AND DISMISS 

MS NEXT BUFFER EMPTY? 

;PROCESS NEXT BLOCK 

;REDUCE TABLE 

;STOP TAPE AND DISMISS 
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02060 








02070 








02080 


000171 


505101 


000001 


02090 


M00172 


540106 


000074 ' 


02100 


000173 


550046 


000172' 


02110 


000174 


251101 


000177 


02120 


000175 


661000 


000300 


02130 


000176 


200126 


000173 ' 


02140 


000177 


556106 


000143' 


02150 


000200 


515100 


400000 


02160 


000201 


413101 


000000 


02170 


000202 


542106 


000010 


02180 


000203 


254000 


000242' 


02190 
02200 
02210 


000204 


260140 


001142' 


02220 


000205 


621000 


000020 


02230 


000206 


550046 


000007 


02240 


000207 


270040 


000007 


02250 


000210 


554106 


000007 


02260 


000211 


306100 


000001 


02270 


000212 


254000 


000251 ' 


02280 


000213 


552040 


001121' 


02290 


000214 


554046 


000007 


02300 


000215 


322040 


000236 ' 


02310 


000216 


254000 


000377' 


02320 
02330 
02340 


000217 


550046 


000007 


02350 


000220 


270040 


000007 


02360 


000221 


554101 


000001 


02370 


000222 


506106 


000007 


02380 


000223 


200046 


000007 


02390 


000224 


505040 


000007 


02400 


000225 


515100 


400000 


02410 


000226 


436120 


000001 


02420 


000227 


540060 


000001 


02430 


000230 


542046 


000007 


02440 


000231 


602000 


000040 


02450 


000232 


254000 


000167' 


02460 


000233 


331020 


000001 


02470 


000234 


254000 


000205' 


02480 


000235 


254000 


000167' 


02490 
02500 


000236 


661000 


000040 


02510 


000237 


202006 


000002 


02520 


000240 


721300 


020000 


02530 


000241 


254000 


000167' 


02540 


000242 


371000 


000000 


02550 


000243 


476000 


000000 


02560 


000244 


371000 


000000 


02570 


000245 


476000 


000000 


02580 


000246 


620000 


010000 


02590 


000247 


202006 


000002 


02600 


000250 


263140 


000000 


02610 



;COPY DIRECTORY WHEN WRITING BLOCK ; 

U0UT4: HRLI TACl.KTAC) 

HRR TACl, UDIR(DEVDAT) 
HRRZ TAC, UDIR(DEVDAT) 
BLT TACl, 177(TAC) 
TLO IDS. UDIRIN+UDIREN 
MOVE TACl, <?UDIR(DEVDAT) 
HLRZM TAC1,UFREE(DEVDAT) 
HRLZI TACl, lOUSE 
ANDCAB TACl. 0(TAC) 
HRRM TACl, DEVOAD(DEVDAT) 

jrst uend2 
, input- non dump 

uin: pushj pop, UINTER 

TLZ lOS, 10 

HRRZ TACDEVIADCDEVDAT) 
ADD TAC, PROG 

HLRZ TACl, DEVIAD(DEVDAT) 
CAIN TACl, 1 
JRST UIN2 
HRRZM TACUBUF 
HLRZ TAC,DEVIAD(DEVDAT) 
JUMPE TACUEND 
JRST USFTR 
;RETURN FROM READING ONE BLOCK 

UINi: HRRZ TAC , DEV I AD (DEVDAT ) 
ADD TAC, PROG 
HLRZ TAC1,1(TAC) 
HRLM TACl,nEVIAD(DEVDAT) 
MOVE TAC,DEVIAD(DEVDAT) 
HRLI TAC, PROG 
HRLZI TACI.IOUSE 
lORM TAC1,PTAC 
HRR TAC.@>TAC 
HRRM TACDEVIADCDEVDAT) 
TRNE lOS, lOCON 
JRST U0UT3 

SKIPL PTAC 
JRST UIN+1 
JRST U0UT3 

UEND: TLO lOS, lOEND 

MOVEM lOS, DEVIOS(DEVDAT) 

C0NS2 UTC. 20000 

JRST U0UT3 
UEND2: SOSL DCREQ 

SETOM DCAVAL 

SOSL DTREQ 

SETOM DTAVAL 

TRZ IDS, lOACT 

MOVEM lOS, DEVIOS(DEVDAT) 

POPJ PDP, 



{BUFFER ADDRESS, FROM 

JOIRECTORY ADDRESS, TO 

{DIRECTORY ADDRESS 

JMORE BUFFER AREA TO DIRECTOR 

{SET DIRECTORY BITS 

{NEXT FREE BLOCK IN DIRECTORY 

{PLACE IN DATA BLOCK 

{CLEAR USE BIT 
{ADVANCE BUFFER POINTER 



{CHECK INTERLOCK 

{READING 

{UBUF:sTAC:=OEVIAD+PROG 



{BLOCK TO READ 
{TRYING TO READ 
{COPY DIRECTORY 



DIRECTORY! 



{TAC:: 
{NEXT 



C(DEVIAD 
BLOCK=0, 



LH) 
THEN 



END OF FI 



NEXT BLOCK NUMBER TO READ 



SET USE BIT 

NEXT BUFFER ADDRESS 

CONTINUOUS? 

EXIT 

IS NEXT BUFFER FULL 
PROCESS NEXT BLOCK 
EXIT 



{DECREMENT 



IS TAPE STOPPED? 

STOP TAPE AND EXIT 

REQUEST COUNT, IS ANY ONE WA 
{YES, SET DATA CONTROL AVAILAB 
{DECREMENT REQUEST COUNT, IS ANYONE WA I 
{YES, SET DECTaPE CONTROL AVAI 
{CLEAR ACTIVE BIT 
{RESTORE STATUS BITS 
{EXIT 
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02620 










02630 










02640 


;COPY 


(^00251 


623000 


000002 


02650 


UIN2: 


000252 


254000 


000265' 


02660 




000253 


260140 


00024? ' 


02670 




000254 


200106 


000177' 


02680 


UIN3: 


000255 


506126 


000176' 


02690 




000256 


541101 


000001 


02700 




000257 


504106 


000255' 


02710 




000260 


251101 


000200 


02720 




000261 


515100 


400000 


02730 




000262 


437101 


000000 


02740 




000263 


542106 


000007 


02750 




000264 


263140 


000000 


02760 




000265 


260140 


000370' 


02770 


UIN4: 


000266 


254000 


000254 ' 


02780 




000267 


260140 


000000 


02790 


SETI : 


000270 


506606 


000007 


02800 




000271 


254000 


000111' 


02810 
02820 
02830 




000272 


260140 


000267' 


02840 


SETO: 


000273 


260140 


001142' 


02850 




000274 


260140 


000242' 


02860 




000275 


506606 


000010 


02870 




000276 


254000 


000271' 


02880 
02890 




000277 


260140 


000272' 


02900 


GETF: 


000300 


603000 


00000? 


02910 




000301 


260140 


000343' 


02920 




000302 


661000 


000400 


02930 




000303 


202006 


000002 


02940 




000304 


350046 


000254 ' 


02950 




000305 


506046 


000010 


02960 




000306 


505600 


000007 


02970 




000307 


542060 


000014 


02980 




000310 


254000 


000276' 


02990 





DIRECTORY WHEN READING 
TLZE IDS, lOBEG 
JRST UIN4 
PUSHJ POP 
MOVE TACl 
HRLM TACl 
HRRI TACl 
HRL TACl, 
BLT TACl, 
HRLZI TACl, 



BLOCK 1 



UEND2 
UFRFE(DEVDAT) 

e>UOIR(DEVDAT) 

l(TAC) 
UDIR(DEVDAT) 
200 (TAC) 
lOUSE 



lORB TACl, (TAC) 

HRRM TAC1,DEVIAD(DEVDAT) 

POPJ POP, 

PUSHJ POP, UBEG3 

JRST UIN3 

PUSHJ PDP.WAITl 

HRLM UUO,nEVlAD(DEVDAT) 

JRST UXIT 



PUSHJ PDP,WAIT1 

PUSHJ POP, UINTER 

PUSHJ PDP, UEND2 

HRLM UUO,DEVOAD(OEVDAT) 

JRST UXIT 

PUSHJ PDP.WAITl 

TLNE IOS,IOBEG 

PUSHJ POP.UBEG 

TLO IOS,UNWFRE 

MOVEM IOS,DEVIOS(DEVDAT) 

AOS TAC, UFREE(DEVDAT) 

HRLM TAC, DEVOAD(DEVDAT) 

HRLI UUCPROG 

HRRM TACi^UUO 

JRST UXIT 



; IS DIRECTORY IN 

;READ in DIRECTORY 

;CLR INDICATORS 

;NEXT FREE BLOCK IN DATA BLOC 

JPLACE IN DIRECTORY 

{BUFFER ADDDRESS, TO 

JDIRECTORY ADDRESS, FROM 

;M0VE DIRECTORY TO BUFFER ARE 



;SET USE 
{ADVANCE 
JEXIT 



BIT 

BUFFER 



;SET INPUT BLOCK NO. 



;WAIT FOR USE TO STOP 
;CLEAR INDICATORS 
;SET OUTPUT BLOCK NO. 



JGET FREE BLOCK 
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03000 
03010 
03020 
03030 
03040 UTWDR: IFE DTSIZ,< PUSHJ PDP,UTPREL> 



INTERNAL UTPCLS , UTWDR , UREG , UTPREL 



000311 254000 000310' 



000312 
000313 
000314 
000315 
000316 
000317 
000320 
000321 
000322 
000323 
000324 
000325 



607000 
254000 
135040 
301040 
254000 
544046 
505040 
540060 
271040 
201100 
506120 
254000 



001000 

000326' 

000000 

000016 

000326' 

000006 

000007 

000001 

000001 
000001 

000001 
000 00 



03050 
03060 
03070 
03080 
03090 
03100 
03110 
03120 
03130 
03140 
03150 
03160 
03170 
03180 
03190 
03200 
03210 
03220 
03230 
03240 
03250 
03260 
03270 
03280 



JRST UXIT 



UTPCLS: TLNN IDS, ULINKF 
JRST UTPREL 

LDB TACPIOMOD ;MODE 
CAIL TAC,16 
JRST UTPREL 

HLR TAC.DEVBUF(OEVDAT) 
HRLT TAG, PROG 
HRR TAC, PTAC 
ADDI TACl 
MOVEI TAC1,1 
HRLM TACl.PTAC 
JRST OUT 



;TAC:=BUFFER ADDRESS 



UTPREL: IFE 
POPJ POP, 
TLZE lOS.UDIREN 
JRST UTPRLl 
TLNN lOS.UNWFRE 
POPJ POP. 
TLNN lOS.UDIRIN 
PUSHJ PDP,UBEG> 



DTSIZ,< TLNE IOS,IOBEG 



jrelease 



000326 
000327 
000330 
000331 
000332 
000333 
000334 
000335 
000336 
000337 
000340 
000341 
000342 



627000 
263140 
260140 
540046 
506066 
200046 
275040 
202040 
661000 
202006 
201040 
260140 
254000 



000600 

000000 

001142' 

000304' 

000257' 

000332' 

000001 

001121' 

002000 

000002 

000001 

000375' 

000277' 



03290 

03300 

TLZN 

03310 
03320 
03330 
03340 
03350 
03360 
03370 
03380 
03390 
03400 
03410 



IFN 
POPJ PDP.> 
lOS.UDIREN+UNWFRE 
POPJ POP, 
UTPRLi: 



OTSIZ,< TLZN IOS.UDIREN+UNWFRE 



PUSHJ pdp.uinter ; is 

HRR TAC,UFREE(DEVDAT) 

HRLM TAC,@UDIR(DEVDAT) 

MOVE TAC,UDIR(DEVDAT) 

SUBI TACl 

MOVEM TAC.UBUF 

TLO lOS. URDIR 

MOVEM IOS.DEVIOS(DEVDAT) 

MOVEI TACl 

PUSHJ PDP.USETW 

JRST WAITl 



SYSTEM AVAILABLE? 
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000343 
000344 
000345 
000346 
000347 
000350 
000351 
000352 
000353 
000354 
000355 
000356 
000357 
000360 
000361 
000362 
000363 
000364 
000365 
000366 
000367 

000370 
000371 
000372 

000373 
000374 

000375 
000376 
000377 
000400 
000401 
000402 
000403 
000404 
000405 
000406 
000407 
000410 
000411 
000412 
000413 
000414 



335006 000004 

661000 000100 

603000 000100 

263140 000000 

260140 001142' 

261140 000001 

550046 000333' 

275040 000001 

202040 001121' 

661000 002100 

621000 000002 

202006 000002 

205040 400000 

436046 000004 

201040 000001 

260140 000377' 

260140 000000 

544066 000351' 

552046 000331' 

262140 000001 

263140 000000 

603000 000100 

263140 000000 

254000 000350' 

260140 001220' 

254000 000000 



201100 
334000 
201100 
542100 
552040 
323040 
301040 
254000 
135040 
241040 
271040 
202040 
201040 
542040 
275040 
542040 



000535' 

000000 

000527' 

000500' 

001117' 

000373' 

001102 

000373' 

000000 

000003 

000000 

001116' 

000137 

001166' 

000021 

001172' 



03420 
03430 
03440 
03450 
03460 
03470 
03480 
03490 
03500 
03510 
03520 
03530 
03540 
03550 
03560 
03570 
03580 
03590 
03600 
03610 
03620 
03630 
03640 
03650 
03660 
03670 
03680 
03690 
03700 
03710 
03720 
03730 
03740 
03750 
03760 
03770 
03780 
03790 
03800 
03810 
03820 
03830 
03840 
03850 
03860 
03870 
03880 
03890 
03900 



,READ THE DIRECTORY FROM THIS DEC-TAPE 



UBEG: 



UBEG2 



UBEGX: 



UBEG3: 



UTBERR: 



USETW; 



USETR: 



SKIPGE DEVMOD(DEVDAT) 

TLO lOS.UDIRIN 

TLNE lOS.UDIRIN 

POPJ POP. 

PUSHJ POP. UINTER 

PUSH POP, TAC 

HRR2 TAC,UDIR(DEVDAT) 

SUBI TAC, 1 

MOVEM TACUBUF 

TLO IOS,UDIRIN+URDIR 

TLZ lOS, lOBEG 

MOVEM IOS,DEVIOS(DEVDAT) 

MOVSI TAC.DVDIRIN ;SET 

lORM TACDEVMODCDEVDAT) 

MOVEI TAC.l 

PUSHJ POP, USETR 

PUSHJ POP.WSYNC 

HLR TAC,^UOIR(DEVDAT) 

HRRZM TAC,UFRFE(DEVDAT) 

POP PDP.TAC 

POPJ POP, 

TLNE lOS, UDIRIN 
POPJ POP, 
JRST UBEG2 



IS DIRECTORY IN CORE? 



;CHECK INTERLOCK 
JSAVE TAC 



DIRECTORY IN CORE BIT 



PUSHJ POP. DTCl 
JRST UTBKER 

MOVEI TAC1,RIT 
SKIPA 

MOVEI TACl.READ 
HRRM TACl.DDIG 
HRRZM TACUBKN 
JUMPLE TAC, UTBERR 
CAR TAC, 1102 
JRST UTBERR 
LDB TACPUNIT 
ROT TAC, 3 
ADDI TAC, DTCCHN 
MOVEM TAC, UNIT 
MOVEI TAC, 137 
HRRM TAC, DTCINT 
SUBI TAC, 21 
HRRM TAC, CONSZl 



; ILL. BLOCK NO. 



ILL. BLOCK NO.? 



JILL. 
JUNIT 



BLOCK NO. 



;OECTAPE CHANNEL 
;UNIT AND CHANNEL 



;FALL INTO FILL 
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03910 








03920 


000415 


720200 


000000 


03930 


000416 


700600 


002100 


03940 


000417 


202300 


001151' 


03950 


000420 


202300 


001122' 


03960 


000421 


201040 


000002 


03970 


000422 


272040 


001122' 


03980 


000423 


200040 


001275' 


03990 


000424 


202040 


000042 


04000 


000425 


202340 


001120' 


04010 


000426 


200040 


001121' 


04020 


000427 


505040 


777600 


04030 


000430 


202040 


001114' 


04040 


000431 


271040 


000177 


04050 


000432 


202040 


001113' 


04060 


000433 


721300 


020000 


04070 


000434 


254000 


000453' 


04080 


000435 


200040 


001116' 


04090 


000436 


137040 


000457' 


04100 


000437 


137040 


000460 ' 


04110 


000440 


137040 


000461 ' 


04120 


000441 


137040 


000462' 


04130 


000442 


200040 


001116' 


04140 


000443 


405040 


000070 


04150 


000444 


2 710 4 


323201 


04160 


000445 


607000 


010000 


04170 


000446 


271040 


010000 


04180 


000447 


721220 


000001 


04190 


000450 


720200 


004011 


04200 


000451 


202006 


000002 


04210 


000452 


263140 


000000 


04220 



FILL 



FILL2 



CONO DC,0 

CONO PI, 2100 

MOVEM DEVDAT, USVDB 

MOVEM DEVDAT, UDVOAT 

MOVEI TAC, DEVIOS 

ADOM TACUDVDAT 

MOVE TAC, CJSR DDIF] 

MOVEM TACUCHA 

MOVEM PROG,UPROG 

MOVE TACUBUF 

HRLI TAC, -200 

MOVEM TACBLI 

ADDI TAC, 200-1 

MOVEM TACBLO 

CONSZ UTC, 20000 

JRST FILLC 

MOVE TAC, UNIT 

DPB TAC.Fl 

DPB TAC,F2 

DPB TAC.F3 

DPB TAC,F4 

MOVE TAC, UNIT 

TAC, 70 
ADDI TAC 

lOS, UREV 

TAC, GR 

UTC. ^TAC 

DC, DACI+UCHN 

DEVIOS (DEVDAT) 



ANDI 

TLNN 
ADDI 
CONO 
CONO 

MOVEM lOS 
POPJ PDP, 



;deselect DC 
jturn on channel 1 
jsave data block addr 
;udvdat;=dtjios pointer 



DATA CONTROL INTERRUPT CHANN 



;uprog:=prog 
;bli :=xwd-200, 



C(UBUF) 



:BLO=XWD-200,C(UBUF+200) 



; IS TAPE moving? 

;yes 

}RDDa:=rdrm;=wtda!=wtrm:sc(un 



;tac 
sl+dtr+rb+ee+uchn 

;WAS 

;was 



has UNIT ONLY 



REV, 
FWD, 



GO 
GO 



FWD 
REV 



SET UP DC FOR INPUT 
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000453 
000454 
000455 
000456 

000457 
000460 
000461 
000462 

000463 
000464 
000465 
000466 
000467 
000470 
000471 

000472 
000473 
000474 
000475 
000476 
000477 
000500 
000501 
000502 
000503 
000504 
000505 
000506 
000507 
000510 
000511 
000512 
000513 
000514 
000515 
000516 



721240 000001 
405040 010070 
721201 320201 
254000 000450' 

000600 000517' 

000600 000531' 

000600 000523' 

000600 000537' 

721240 000001 

431040 010000 

405040 550777 

435040 002000 

721201 220000 

720200 004011 

254000 000515' 



000000 
202040 
721700 
254000 
720040 
316040 
254000 
721300 
254000 
311040 
254000 
254000 
317040 
2540(^0 
721240 
405040 
721201 
334000 
542040 
200040 
254520 



000000 

001115' 

000002 

000463' 

000001 

001117' 

000500' 

010000 

000506' 

001117' 

000463' 

000510' 

001117' 

000463' 

000001 

550777 

220000 

000000 

000042 

001115' 

000472' 



04230 
04240 
04250 
04260 
04270 
04280 
04290 
04300 
04310 
04320 
04330 
04340 
04350 
04360 
04370 
04380 
04390 
04400 
04410 
04420 
04430 
04440 
04450 
04460 
04470 
04480 
04490 
04500 
04510 
04520 
04530 
04540 
04550 
04560 
04570 
04580 
04590 
04600 
04610 
04620 
04630 
04640 



,TAPE 
FILLC 



IS 



Fl: 

F2: 

F3: 

F4: 

.CHANGf 

RRV: 



.EXAMI 
DDIF: 



NE 



DDIG: 



DDIG2: 



OXITi: 
DXIT: 



ACTIVE - GIVE A COMMAND 
CONI UTCTAC 
ANDI TAC,GR+70 
CONO UTC,SL+RR+EE+UCHN(TAC) 
JRST FILL2 

POINT 6,RDDA,35 
POINT 6.RDRM,35 
POINT 6,WTDA,35 
POINT 6,WTRM.35 

- GIVE NEW COMMANDS 

,TAC 

,GR 

,550777 

,DT 

,SL(TAC) 

DACI+UCHN 



;UTC command: UNIT, 

;direction plus unit 
;no time delay 



OLD DIRE 



TAC 

TAC 

TAC 

UTC 

DC. 

DXIT 

NUMBERS - 



SVl 
VEOT 



DIRECTION 
CONI UTC 
XORI 
ANDI 
lORI 
CONO 
CONO 
JRST 
BLOCK 


MOVEM TAC 
CONSZ UTS 
JRST RRV 
DATAI DC, TAC 
CAMN TACUBKN 
JRST . 

CONSZ UTC. 10000 
JRST .+4 
CAML TACUBKN 
JRST RRV 
JRST .+3 

TAC 

RRV 

UTC 

TAC 



{REVERSE BIT 



DISPATCHED FROM INTERRUPT - UCHA, 

JGOING FORWARD 
;SVi:=TAC 



DC, 



UBKN 



TAC 
550777 



CAMG 

JRST 

CONI 

ANDI 

CONO 

SKIPA 

HRRM TAC, UCHA 

MOVE TAC, SVl 

JEN eiDOIF 



JBLK NOT sSTR 

;JRST READ, RIT, 

;G0ING BACKWARDS 

.•BACKWARDS 

;8LK > STR > FORWARDS 



{BACKWARDS 
{BACKWARDS 



IF RIGHT UBK 



UTC,SL(TAC) 



{RESTORE TAC 
{RE-ENABLE, DISMISS. 
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04650 








04660 








04670 








04680 








04690 








04700 


PS00517 


721200 


360300 


04710 


000520 


201040 


000551 • 


04720 


C100521 


720200 


004011 


04730 


000522 


254000 


000514' 


04740 
04750 


000523 


721200 


360700 


04760 


000524 


201040 


000563' 


04770 


000525 


720200 


003411 


04780 


000526 


254000 


000514' 


04790 
04800 


000527 


721340 


010000 


04810 


000530 


254000 


000517' 


04820 
04830 


000531 


721200 


370300 


04840 


000532 


201040 


000543' 


04850 


000533 


720200 


004011 


04860 


000534 


254000 


000514' 


04870 


000535 


721340 


010000 


04880 


000536 


254000 


000523' 


04890 
04900 


000537 


721200 


370700 


04910 


000540 


201040 


000555 ' 


04920 


000541 


720200 


003411 


04930 


000542 


254000 


000514' 


04940 
04950 
04960 
04970 
04980 
04990 


000543 


000000 


000000 


05000 


000544 


720000 


001113' 


05010 


000545 


264000 


000620' 


05020 


000546 


370000 


001113' 


05030 


000547 


370000 


001113' 


05040 


000550 


254520 


000543' 


05050 
05060 


000551 


000000 


000000 


05070 


000552 


720000 


001114' 


05080 


000553 


264000 


000620' 


05090 


000554 


254520 


000551' 


05100 
05110 


000555 


000000 


000000 


05120 


000556 


720100 


001113' 


05130 


000557 


264000 


000567' 


05140 


000560 


370000 


001113' 


05150 


000561 


370000 


001113' 


05160 


000562 


254520 


000555' 


05170 
05180 


000563 


000000 


000000 


05190 


000564 


720100 


001114' 


05200 


000565 


264000 


000567' 


05210 



.DISPATCH FROM UCHA INITIALLY ON CORRECT BLOCK MARK 
.SETS OP TO READ, WRITE IN FWD, REVERSE 



;rd forward 



RDDA 



WTDA 



CONO UTC,SL+RD+JDE+EE 
MOVEI TACRDFW 
CONO DCDACI+UCHN 
JRST DXITl 

CONO UTCSL + WD + JDE + EE 
MOVEI TAC.WTFW 
CONO DC.DACO+UCHN 
JRST DXITl 



;GETS UNIT NO. - RE 



;GETS UNIT NO. - RE 



READ 



CONSO UTC, 10000 

JRST, RDDA 
;READ REVERSE 
RDRM: CONO UTC,SL+GR+RD+JDE+EE 

MOVEI TACRDRV 

CONO DCDACI + UCHN 

JRST DXITl 
RIT: CONSO UTC, 10000 

JRST WTDA 
;WRITF REVERSE 
WTRM: CONO UTCSL + WD + GR + JDE + EE 

MOVEI TACWTRV 

CONO DCDACO + UCHN 

JRST DXITl 



,DC INTERRUPT PROCESSING TO READ/WRITE DATA IN EITHER 

, DIRECTION, AND RE-ENABLE INTERRUPT. 

,EXIT BLOCK PROCESSING AT ENPT(WRITE), ENPTI(READ) 



;ENTRY TO SET UP READ 

IGETS UNIT NO. - RESETS TO RD 



;G0ING REVERSE - ENTRY TO SET 
;WRITE FORWARD 

;GETS unit NO. - RESETS TO WT 



RDRV 



RDFW 



WTRV: 



WTFW; 





BLKI DCBLO 
JSR ENPTI 
SOS BLO 
SOS BLO 
JEN 9RDRV 



BLKI DCBLI 
JSR ENPTI 
JEN @>RDFW 



BLKO DCBLO 
JSR ENPT 
SOS BLO 
SOS BLO 
JEN e>WTRV 



BLKO DCBLI 

JSR ENPT 



;ENTRY VIA UCHA - READ REV 



;ENTRY VIA UCHA - READ FWD 



;ENTRY VIA UCHA - WRITE REV 



JENTRY VIA UCHA - WRITE FWD 



000566 254520 000563' 0522( 



JEN 9WTFW 
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05230 








05240 








05250 


000567 


0000(710 


000000 


05260 


000570 


264000 


000603 • 


05270 


000571 


202040 


001115' 


05280 


000572 


515040 


010000 


05290 


000573 


721300 


010000 


05300 


000574 


412060 


001122' 


05310 


000575 


721340 


010000 


05320 


000576 


436060 


001122' 


05330 


000577 


201040 


000615' 


05340 


000600 


542040 


000042 


05350 


000601 


200040 


001115' 


05360 


000602 


254120 


000567' 


05370 
05380 
05390 


000603 


000000 


000000 


05400 


000604 


720300 


010000 


05410 


000605 


264000 


000627' 


05420 


000606 


254120 


000603' 


05430 
05440 
05450 
05460 


000607 


000000 


000000 


05470 


000610 


721640 


001111' 


05480 


000611 


721240 


001112' 


05490 


000612 


720240 


001110' 


05500 


000613 


476000 


001124' 


05510 


000614 


254120 


000607' 


05520 
05530 


000615 


000000 


000000 


05540 


000616 


700600 


001100 


05550 


000617 


254520 


000615' 


05560 
05570 
05580 


000620 


000000 


000000 


05590 


000621 


250040 


000620' 


05600 


000622 


202040 


000567' 


05610 


000623 


264000 


000603' 


05620 


000624 


720200 


000000 


05630 


000625 


200040 


000620' 


05640 


000626 


254000 


000571' 


05650 
05660 


000627 


000000 


000000 


05670 


000630 


336000 


001124' 


05680 


000631 


264000 


000607' 


05690 


000632 


254120 


000627' 


05700 
05710 
05720 
05730 



;END of OUTPUT BLOCK 

ENPT: 

JSR, ENP 
ENPT2: MOVEM TAC.SVl ;SVi:=TAC 

HRLZI TAC.UREV 

CONSZ UTC, 10000 

ANDCAM TAC^UDVDAT 

CONSO UTC, 10000 

lORM TAC^UDVDAT 

MOVEI TAC.UOFF 

HRRM TACUCHA 

MOVE TACSVl 

JRSTF @ENPT 

, CHECK ERROR BITS DC MISSED, OT PARITY, I LEG OP, TAPE END 
ENP: 

CONSZ DC, 10000; DATA MISSED 

JSR ERR0R2 

JRSTF ^ENP 

,SaVE state OF UTS, UTc, DC. TURN OFF DC, UTC, ♦I^ERRTaL , +19UCRR 

;frror LOOPS 

error: 

CONI UTS, C12 

CONI UTC, C13 

CONI DC, Cll 

SETOM ERRFLG 

JRSTF TERROR 
; INTERRUPT FROM DATA FLAG AFTER BLKO HAS COUNTED OUT 
UOFF: 

CONO PI, 1100 ;TURN DC CHANNEL OFF 

JEN ^UOFF ;DISMISS EXTRA WRITE FLAG 

;END of INPUT BLOCK 



ENPT I 







ENPTI 
ENPT 



EXCH TAC, 
MOVEM TAC 
JSR ENP 
CONO DC, 
MOVE TAC, ENPTI 
JRST ENPT2 

JDETECT FIRST ERROR ONLY 

ERR0R2: 

SKIPN ERRFLG 
JSR ERROR 
JRSTF i?ERR0R2 



;END of PART 1 DTSER2 



;PREVI0USLY DETECTED ERROR? 
SSTORE ERROR CONDITIONS 
;CONTINUE LOOP 
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05760 










05770 










05780 


p 








05790 










05800 


; DUMP OUT 


000633 


661000 


00020 


05810 


UDMPO: 


000634 


260140 


001142' 


05820 




000635 


606600 


777777 


05830 




000636 


254000 


000722' 


05840 




000637 


201040 


000727' 


05850 




000640 


200100 


001276' 


05860 
05870 
05880 


UDMP0: 
;COMMON RO 


000641 


542040 


000500' 


05890 


UDMPi: 


000642 


202100 


000043 


05900 




000643 


200040 


001275' 


05910 




000644 


202040 


000042 


05920 




000645 


554046 


000010 


05930 




000646 


607000 


000020 


05940 




000647 


554046 


000007 


05950 




000650 


202040 


001117' 


05960 




000651 


552300 


001151' 


05970 




000652 


135040 


000405' 


05980 




000653 


241040 


000003 


05990 




000654 


271040 


000407' 


06000 




000655 


202040 


001116' 


06010 




000656 


405040 


000070 


06020 




000657 


721201 


323201 


06030 




000660 


476000 


001153' 


06040 




000661 


201040 


000037 


06050 




000662 


542040 


001166' 


06060 




000663 


201040 


00 0016 


06070 




000664 


542040 


001172' 


06080 




000665 


720200 


004011 


06090 




000666 


700600 


002100 


06100 




000667 


552340 


001126' 


06110 




000670 


606600 


777777 


06120 




000671 


263140 


000000 


06130 




000672 


550040 


000014 


06140 




000673 


550100 


000001 


06150 




000674 


270100 


000007 


06160 


UDMPIA: 


000675 


552100 


001125' 


06170 
06180 
06190 


JCHECK ENT 


000676 


336120 


001125' 


06200 


udmpir: 


000677 


254000 


000712' 


06210 




000700 


327100 


000674' 


06220 




000701 


576100 


001141' 


06230 




000702 


553000 


000002 


06240 




000703 


305100 


000000 


06250 




000704 


254000 


000000 


06260 




000705 


274100 


001141' 


06270 




000706 


313100 


000000 


06280 


1 


000707 


254000 


000722' 


06290 




000710 


350000 


001125' 


06300 




000711 


254000 


000676' 


06310 





EXTERNAL SETIOD 
INTERNAL UDMpO, UDMPI 



TlO ids, 10 

PUSHJ POP. UINTER 

TRNN UUO, 777777 

JRST UDMP2-1 

MOVEI TAC, DDUMP 

MOVE TACl, CJSR DMPADV3 



;SET FOR OUTPUT 
;CHECK INTERLOCK 
;COMMAND ADDRESS? 

• rRDQR 

;RETURN when BLOCK FOUND 
;BLKI OR BLKO RETURN, COMMANDS 



START SEARCH 

;SEARCH RETURN 

; INTERRUPT RETURN 



UTINE FOR ALL DUMP MODES. 

HRRM TAC, DDIG 

MOVEM TACl, UCHA+1 

MOVE TAC, CJSR DDIFD 

MOVEM TAC, UCHA 

HLR2 TAC, DEVOAD (DEVDAT) 

TLNN lOS, 10 

HLR2 TAC, DEVIAD(DEVDAT) 

MOVEM TAC, UBKN 

HRRZM DEVDAT, USVDB 

LDB TACPUNIT ;UNIT 

ROT TAC. 3 

ADDI TAC, DTCCHN 

MOVEM TAC, UNIT 

ANDI TAC, 70 

CONO UTC, SL+DTR+RB+EE+UCHN(TAC) 



JDATA CONTROL CHANNEL 
JBLOCK NUMBER 
;WRITING? 

; input block number 
;block to look for 
jdata block address 



JUNIT AND DT CHANNEL 



SETOM UERRCN 
MOVEI TAC, 37 
HRRM TAC, DTCINT 
MOVEI TAC. 16 
HRRM TAC, DTCINT+4 
CONO DC. OACI+UCHN 
CONO PI, 2100 
HRR?M PROG, UDMPA 
TRNN UUO. 777777 
POPJ PDP. 
HRRZ TAC. UUO 
HRRZ TACl. TAC 
ADD TACl. PROG 
HRRZM TACl. UDMP 



SKIPN TACl. 6»UDMP 

JRST UDMPIC 

JUMPG TACl. UDMPIA 

HLREM TACl. SVCNTR 

HRRZS TACl 

CAIGE TACl, JOBPFI 

JRST ADRERR 

SUB TACl, SVCNTR 

CAMLE TACl, USRREL 

JRST UDMP2-1 

AOS UDmP 

JRST UDMPIB 



;SET ERROR COUNTER 

;D0 not CHECK FOR INCOMPLETE 



;set data control 
insure channel 1 on 

;save program 

;command address 

;command list on tape, input 

;get cmd pntr 

;save pointer 

;GET ACTUAL POINTER 
;STORE WORKING POINTER 



;GET COMMAND 

.•END OF COMMAND LIST 

;CHANGE COMMAND SEQUENCE 

;SAVE -N 

JGET ADDRESS 
MS IT ABOVE 10 PROT. AREA 
;N0, ADDRESS CHECK ERROR 

;GET AREA END 

;LESS THAN END? 

;OUT OF BOUNDS 

MNDEX COMMAND LIST POINTER 

JGET NEXT COMMAND 
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000712 
(^00713 
f?l00714 
000715 
000716 
000717 
000720 
000721 

000722 
000723 
000724 
000725 
000726 



000727 
000730 
000731 
000732 
000733 
000734 

000735 
000736 

000737 
000740 
000741 



270040 
552040 
336060 
254000 
270040 
325040 
202040 
263140 



000007 

001125' 

001125' 

000723' 

000007 

000713' 

001113' 

000000 



660000 040000 

201040 777775 

572040 001153' 

402000 001124' 

254000 000242' 



721300 010000 

254000 000510' 

200040 001277' 

202040 000042 

720200 003411 

200040 001116' 



721201 
254000 



360700 
000515' 



000000 000000 
202040 001115' 
354040 001125' 



06320 
06330 
06340 
06350 
06360 
06370 
06380 
06390 
06400 
06410 
06420 
06430 
06440 
06450 
06460 
06470 
06480 
06490 
06500 
06510 
06520 
06530 
06540 
06550 
06560 
06570 
06580 
06590 
06600 
06610 
06620 



;GET FIRST COMMAND 

UDMPIC: ADD TAC, PROG 

HRR2M TAC. UdMP 
SKIPN TAC. ^UDMP 
JRST UDMP2 
ADD TAC, PROG 
JUMPGE TAC, .-4 
MOVEM TAC. BLO 
POPJ PDP, 

;EXIT WITH ERROR 

TRO lOS, lOBKTL 

UDMP2: MOVEI TAC, -3 

HRREM TAC, UERRCN 
SETZM ERRFLG 
JRST UEND2 



JSEaRCH RETURN, OUTPUT, command LIST IN MEMORY 
DDUMP: CONSZ UTCGR 

JRST DDIG2 ;KEEP GOING 

MOVE TACCBLKO DCBLOD 

MOVEM TAC, UCHA 

CONO DCDACO + UCHN 

MOVE TAC, UNIT 

CONO UTC,SL+WD+JDE+EE(TAC) 

JRST DXIT 
;BLKI or BLKO return, command list IN MEMORY 
DMPADV: 

MOVEM TACSVl 

AOSA TAC, UDMP ;POINTER 



;GET ACTUAL ADDRESS 

;SAVE POINTER 

;1ST COMMAND 

;N0THING TO DO 

;ACTUAL POINTER 

5CHANGE COMMAND SEQUENCE 

;SAVE I/O POINTER 
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000742 
000743 
000744 
000745 
000746 
000747 
000750 
000751 



000752 
000753 
000754 
000755 
000756 

000757 
000760 
000761 
000762 



000763 
000764 
000765 
000766 
000767 
000770 



000771 
000772 
000773 
000774 
000775 
000776 
000777 
001000 
001001 
001002 
001003 
001004 
001005 
001006 
001007 
001010 
001011 



552040 
336041 
254000 
270040 
325040 
202040 
?0I?I040 
254520 



001125' 

000000 

000752' 

001126' 

000742' 

001113' 

001115' 

000737' 



264000 000603' 

700600 001100 

721740 000040 

720200 000000 

254000 000750' 

721300 010000 

254000 000510' 

200040 001300' 

202040 001113' 



200040 001301' 
202040 000042 
720200 004011 
200040 001116' 
721201 360300 
254000 000515' 



000000 

331000 
254000 
202040 
200040 
576040 
553000 
274040 
303040 
254000 
200040 
272040 
201040 
542040 
334040 
720200 
254520 



000000 

001113' 
001010' 
001115' 
001113' 
001141 ' 

000001 

001141' 

000000 

001102' 

001126' 

001113' 

001012' 

000043 

001115' 

000000 

000771' 



06630 
06640 
06650 
06660 
06670 
06680 
06690 
06700 
06710 
06720 
06730 
06740 
06750 
06760 
06770 
06780 
06790 
06800 
06810 
06820 
06830 
06840 
06850 
06860 
06870 
06880 
06890 
06900 
06910 
06920 
06930 
06940 
06950 
06960 
06970 
06980 
06990 
07000 
07010 
07020 
07030 
07040 
07050 
07060 
07070 
07080 
07090 
07100 
07110 



DMPXT 



;end of 

DMPA2: 



OMPAi: HRRZM TAC, UDMP ;STORE POINTER 

SKIPN TAC, 0(TAC) 5IS WORD ZERO 

JRST DMPA2 ;END 

ADD TAC, UDMPA JADD PROGRAM 

JUMPGE TAC, DMPAl ;CHANGE COMMAND 

MOVEM TAC, BLO 
MOVE TAC, SVl 
JEN eiDMPADV 

COMMAND LIST, INPUT OR OUTPUT 

JSR ENP 

CONO PI, 1100 

CONSO UTS, 40 

CONO DC, 

JRST DMPXT 
;SEARCH RETURN, INPUT COMMAND LIST ON 
DDMPi: CONSZ UTC, GR 

JRST DDIG2 

MOVE TAC, CXWD -1,BL0-13 

MOVEM TAC, BLO 

JCOMMON INSTRUCTIONS FOR COMMAND LIST 
DDMPI2: MOVE TAC, CBLKI DC, BLO] 

MOVEM TAC, UCHA 

CONO DC, DACI+UCHN 

MOVE TAC, UNIT 

CONO UTC, SL+RD+JDE+EE(TAC) 

JRST DXIT 

; INPUT COMMAND LIST ON TAPE. BLKI RETURN AFTER READING COMMAND 



;TURN DATA CONTROL CHANNEL OF 

;WRITING? 

;SHUT OFF DATA CONTROL 

TAPE 

;G0ING BACKWARDS? 
;KEEP GOING 



IN MEMORY OR ON TAPE 



DMPRd: 

SKIPL BLO 

JRST DMPRDl 

MOVEM TAC, SVl 

MOVE TAC, BLO 

HLREM TAC, SVCNTR 

HRRZS TAC 

SUB TAC, SVCNTR 

OMPRD0: CAILE TAC. 
JRST DMPERR 
MOVE TAC, UDMPA 
ADDM TAC, BLO 
MOVEI TAC, DMPRDA 
HRRM TAC, UCHA+1 
SKIPA TAC, SVl 

DMPRDi: CONO DC. 
JEN eOMPRD 



;END of COMMAND LIST? 



TAC 

UP COMMAND 



;save 

JPICK 

;-N 
;address 

JEND address 
;<END?, MODIFIED 
;OUT OF BOUNDS, EXIT 
JPROG 

;to get actual i/o pointer 
;new return 

;REST0RE TAC 
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07120 












07130 












07140 


; INPUT 


COMMAND LIST ON TAPE. BLKI 


P)01012 


000000 


000000 


07150 


dmprda: 





001013 


202040 


001115' 


07160 




MOVEM TAC, SVl 


001014 


200040 


001300' 


07170 




MOVE TAC, CXWD -I.BLO-IJ 


001015 


202040 


001113' 


07180 




MOVEM TAC, BLO 


001016 


201040 


000771' 


07190 




MOVEI TAC. DMPRO 


001017 


542040 


000043 


07200 




HRRM TAC, UCHA+1 


001020 


200040 


001115' 


07210 




MOVE TAC, SVl 


001021 


254520 


001012' 


07220 




JEN PDMPRDA 








07230 


;dump in 


001022 


621000 


000020 


07240 


UDMPI : 


TLZ lOS, 10 


001023 


260140 


001142' 


07250 




PUSHJ PDP, UINTER 


001024 


602600 


777777 


07260 




TRNE UUO, 777777 


001025 


254000 


001.033' 


07270 




JRST UDMPI2 


001026 


200040 


000706' 


07280 




MOVE TAC. USRREL 


001027 


542040 


001001' 


07290 




HRRM TAC. DMPRD0 


001030 


201040 


000757' 


07300 




MOVEI TAC, DDMPI 


001031 


200100 


001302' 


07310 




MOVE TACl, CJSR DMPRQ] 


001032 


254000 


000641' 


07320 




JRST UDMPI 


001033 


201040 


001035' 


07330 


UDMPI2: 


MOVEI TAC. DDMPI3 


001034 


254000 


000640' 


07340 




JRST UOMP0 








07350 


.•SEARCH 


RETURN, INPUT COMMAND LIST 


001035 


721300 


010000 


07360 


DDMPI3: 


CONSZ UTC. GR 


001036 


254000 


000510' 


07370 




JRST DDIG2 


001037 


254000 


000763' 


07380 




JRST DDMPI2 








07390 


;JOB DONE AFTER COMMAND LIST RUNS 


001040 


332000 


001124' 


07400 


DMPEND: 


SKIPE ERRFLG 


001041 


660000 


200000 


07410 




TRO lOS.IODERR 


001042 


202006 


000002 


07420 




MOVEM I0S,DEVI0S(DEVDAT) 


001043 


200040 


001116' 


07430 




MOVE TAC, UNIT 


001044 


405040 


000070 


07440 




ANDI TAC, 70 


001045 


700600 


002100 


07450 




CONO PI, 2100 


001046 


720200 


004011 


07460 




CONO DC, DACI+UCHN 


001047 


721201 


220200 


07470 




CONO UTC, SL+RB(TAC) 


001050 


200040 


001303' 


07480 




MOVE TAC, CJSR UDMPRB] 


001051 


202040 


000042 


07490 




MOVEM TAC. UCHA 


001052 


254000 


000000 


07500 




JRST DTCRET 








07510 


;SEARCH 


RETURN TO READ NEXT FREE Bl 


001053 


000000 


000000 


07520 


UDMPRB: 





001054 


250300 


001151' 


07530 




EXCH DEVDAT, USVOB 


001055 


202040 


001130 ' 


07540 




MOVEM TACSVAC 


001056 


202000 


001131 • 


07550 




MOVEM I0S,SVAC+1 


001057 


202140 


001132' 


07560 




MOVEM PDP,SVAC+2 


001060 


202100 


001133' 


07570 




MOVEM TACl.SVAC+3 


001061 


200006 


000002 


07580 




MOVE IOS,DEVIOS(DEVDAT) 


001062 


607000 


000020 


07590 




TLNN I0S,IO 


001063 


254000 


001066' 


07600 




JRST .+3 


001064 


720046 


000365' 


07610 




DATAI DC.UFREE(DEVDAT) 


001065 


661000 


000400 


07620 




TLO lOS.UNWFRE 


001066 


720200 


000000 


07630 




CONO DC.0 


001067 


201040 


000654' 


07640 




MOVEI TAC.DTCCHN 


001070 


721201 


005000 


07650 




CONO UTC,5000(TAC) 


001071 


200140 


001304' 


07660 




MOVE POP. CXWD -5,SVAC+3] 


001072 


264000 


001154' 


07670 




JSR lODSET 


001073 


260140 


001227' 


07680 




PUSHJ PDP,DTC1B 



RETURN AFTER READING DATA 



;SAVE TAC 

JREAD INTO 
;USE PREV. 

;SAVE TAC 



BLO 
RETURN 



;COMMAND 
;COMMAND 



LIST 
LIST 



ON 
IN 



;LENGTH OF USER 



TAPE 
CORE 
AREA 



iSEARCH 



RETURN 

;block 



IN RETURN 



COMMAND LIST IN CORE 



IN MEMORY 



JKEEP 
INPUT 



GOING 
COMMAND 



OUT 



LIST IN CORE 



;SWITCH TO SEARCH MODE 



BLOCK 



:GET DVD8 



; INPUT OR OUTPUT? 
; INPUT 

;last freeblock tally 

;SET FREE block CHANGED BIT 
;TURN off DATA CONTROL 



;STOP TAPE 
;USE REST OF 



SCAV BLOCK 



001074 


200040 


001130' 


07690 




MOVE TACSVAC 




001075 


200000 


001131' 


07700 




MOVE I0S,SVAC+1 




001076 


200140 


001132' 


07710 




MOVE PDP,SVAC+2 




001077 


200100 


001133' 


07720 




MOVE TACl,SVAC+3 




01100 


250300 


001151' 


07730 




EXCH DEVDAT.USVDB 




001101 


254520 


001053' 


07740 




JEN PUDMPRB 










07750 


;address 


CHECK FROM COMMAND. COMMANDS 


ON TAPE 


001102 


250300 


001151' 


07760 


DMPERR: 


EXCH DEVDAT, USVDB 


;get dvob 


001103 


201040 


400000 


07770 




MOVEI TAC. lOIMPM 


;ERR0R BITS 


001104 


436046 


000002 


07780 




ORM TAC, DEVIOS(DEVDAT) 


;SET STATUS 


01105 


250300 


001151 ' 


07790 




EXCH DEVDAT, USVDB 


{RESTORE DEVDAT 


001106 


200040 


001115' 


07800 




MOVE TAC, SVl 


;REST0RE TAC 


001107 


254000 


001010' 


07810 




JRST DMPRDl 
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00111.0 
001111 
001112 
001113 
001114 
001115 
001116 
001117 
001120 
001121 
001122 
001123 
-7101124 

001125 
001126 
001127 



000000 
000000 
000000 
000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 000000 
000000 000000 
000000 000000 



001141 000000 000000 



001142 

001143 

001144 

001145 

001146 

00lM47^ 

001150 

001151 
001152 
001153 

001154 
001155 

001156 
001157 
001160 



660000 
202006 
352000 
260140 
352000 
260140 
263140 



010000 

000002 

000244' 

000000 

000242' 

000000 

000000 



000000 000000 

000000 000000 

777777 777775 

000000 000000 

623000 000001 

260140 000000 

202006 000002 

254020 001154' 



07820 
07830 
07840 
07850 
07860 
07870 
07880 
07890 
07900 
07910 
07920 
07930 
07940 
07950 
07960 
07970 
07980 
07990 
08000 
08010 
08020 
08030 
08040 
08050 
08060 
08070 
08080 
08090 
08100 
08110 
08120 
08130 
08140 
08150 
08160 
08170 
08180 
08190 
08200 
08210 



Cli: 
C12: 
C13: 
8L0: 
BLI : 
SVi: 
UNIT: 

ubkn: 

UPROG: 

UBUF: 

UDVDAT: 

ERRTAL: 

ERRFLG: 

UDMP: 

UDMPA: 

SV0: 

SVAC: 

SVCNTR: 























BLOCK 11 





TEMP CONI DC 

TEMP CONI UTS 

TEMP CONI UTC 

XWD -200 C(UBUF) 

XWn,-200,C{UBUF+200) 

TEMPORARY FOR TAC DURING INTERRUPT 

IN BITS 30-32 

BLOCK BEING SEARCHED FOR 

HOLDS PROG 

ABS. LOC OF DATA 

PTR TO lOS 

TOTAL NO. OF ERRORS 

-1 IF ERROR OCCURED, OTHERWISE 

HOLDS DUMP UUO ADDRESS 

HOLDS USER PROGRAM STARTING ADDRESS 



;H0LDS -N OF DUMP COMMAND WORD 



;CHECK FOR INTERLOCK ON DECTAPE AND DATA CONTROLS 



UINTER: 



TRO lOS, lOACT 

MOVEM IDS, DEVIOS(DEVDAT) 

AOSE DTREQ 

PUSHJ POP, 

AOSE DCREQ 

PUSHJ POP, 

POPJ POP, 



DTWAIT 



DCWAIT 







;IS DECTAPE CONTROL FREE? 

;WAIT 

MS DATA CONTROL FREE? 

;WAIT 

JEXIT 



USVDB: 

USVIOS: 

UERRCN: 

IODSET: 




-3 



;SAVE DATA BLOCK ADDRESS 
JSAVE IOS 

;error counter 





TL2E IOS, low 

PUSHJ PDP.SETIOD 

MOVEM IOS,DEVIOS(DEVDAT) 

JRST e>IODSET 
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08220 












08230 


; INITIALZATION 








08240 






001161 


201040 


777775 


08250 


DTCINI : 


MOVEI TAC. -3 


001162 


572040 


001153' 


08260 




HRREM TAC, UERRCN 


001163 


402000 


001124' 


08270 




SET2M ERRFLG 


001164 


721200 


000000 


082B0 




CONO UTC, 


001165 


263140 


000000 


08290 
08300 




POPJ POP, 


001166 


721740 


000137 


08310 


OTCINT: 


CONSO UTS, 137 


001167 


254000 


001167' 


08320 




JRST . 


001170 


721700 


000020 


08330 




CONSZ UTS, 20 


001171 


254000 


001244' 


08340 




JRST UTIME 


001172 


721700 


000116 


08350 


CONSZi: 


CONSZ UTS, 116 


001173 


264000 


000627' 


08360 
08370 
08380 


;JOB DONE 


JSR ERR0R2 


001174 


720200 


00 00 00 


08390 




CONO DC, 


001175 


202000 


001127' 


08400 




MOVEM 0, SV0 


001176 


721240 


000000 


08410 




CONI UTC, 


001177 


202000 


001152' 


08420 




MOVEM 0. USVIOS 


001200 


405000 


230070 


08430 




ANDI 0, 230070 


001201 


721220 


000000 


08440 




CONO UTC, ©0 


001202 


200000 


001127' 


08450 




MOVE 0, SV0 


001203 


264000 


000000 


08460 




JSR DTCSAV 


001204 


260140 


001252' 


08470 




PUSHJ POP, DSETAC 


001205 


332000 


001124' 


08480 




SKIPE ERRFLG 


001206 


254000 


001256' 


08490 




JRST DTREDO 


001207 


627000 


002000 


08500 




TLZN lOS.URDIR 


001210 


254000 


001213' 


08510 




JRST .+3 


001211 


264000 


001154' 


08520 




JSR lODSET 


001212 


254000 


001220' 


08530 




JRST DTCI 


001213 


640000 


000017 


08540 




TRC I0S,17 


^imr214 


646000 


000017 


08550 




TRCN IDS, 17 


001215 


254000 


001040' 


08560 




JRST DMPEND 


001216 


264000 


001154' 


08570 




JSR lODSET 


001217 


254000 


001237' 


08580 




JRST DTCONT 


001220 


200040 


001152' 


08590 


DTCi: 


MOVE TAC, USVIOS 


001221 


405040 


010007 


08600 




ANDI TAC, 10007 


001222 


435040 


00 50 


08610 




ORI TAC, 5000 


001223 


721220 


000001 


08620 




CONO UTC, @ TAC 


001224 


621000 


010000 


08630 




TLZ lOS, UREV 


001225 


602040 


010000 


08640 




TRNE TAC, 10000 


001226 


661000 


010000 


08650 




TLO IOS,UREV 



JCLEAR ERROR COUNTER 



;aLL ERRORS AND JOB DONE 

;modified by initialization 

;time flag 

;set dectape control availabl 

;iNC blk, parity, ill op, end 

;error 



JTURN off data CONTROL 

jsave zero 



;SAVE direction and UNIT 

;swiTCH to move mode 



;direction, channel 

;time flag enable 

;ST0P tape, and deselect 
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001227 
5)01230 
001231 
001232 
001233 
001234 
001235 
001236 

001237 
001240 
001241 
001242 
001243 



001244 
001245 
001246 
001247 
001250 
001251 



001252 
001253 
001254 
001255 

001256 
001257 
001260 
001261 
001262 
001263 
001264 
001265 
001266 
001267 
001270 
001271 



001272 
001273 
001274 
001275 
001276 
001277 
001300 
001301 
001302 
001303 



371000 
476000 
620000 
202006 
201040 
572040 
402000 
263140 



001146' 
000243' 

010000 

000002 
777775 
001153 ' 
001124' 
000000 



201100 000153' 

607000 000020 

201100 000217' 

260142 000000 

254000 001232' 



721340 004000 
254000 001167' 
371000 001144' 
476000 000245' 
721200 000000 
254520 000000 



200300 001151' 
200340 001120' 
200006 00000? 
263140 000000 

640000 000017 

646000 000017 

254000 001040' 

350000 001153' 

254000 001266' 

402000 001124' 

260140 000415' 

254000 001052' 

660000 200000 

623000 000001 

260140 001156' 

254000 001220' 



001401 
001414 
000001 
264000 
264000 
720100 
777777 
720000 
264000 
264000 



000002 

000002 

000005 

000472' 

000737' 

001113' 

001112' 

001113' 

000771' 

001053' 



08660 
08670 
08680 
08690 
08700 
08710 
08720 
08730 
08740 
08750 
08760 
08770 
08780 
08790 
08800 
08810 
08820 
08830 
08840 
08850 
08860 
08870 
08880 
08890 
08900 
08910 
08920 
08930 
08940 
08950 
08960 
08970 
0R980 
08990 
09000 
09010 
09020 
09030 
09040 
09050 
09060 
09070 
09080 
09090 
09100 
09110 
09120 
09130 



DTCIA 
DTCIB: 



DTC2: 



DTCONT 



SOSL DCREQ 

SETOM DCAVAL 

TRZ IDS, lOACT 

MOVEM IDS, DEVIOS(DEVDAT) 

MOVEI TAC, -3 

HRREM TAC, UERRCN 

SETZM ERRFLG 

POPJ POP, 

MOVEI TACl, U0UT2 
TLNN lOS, 10 
MOVEI TACl, UINl 
PUSHJ POP, 0(TAC1) 
JRST DTC2 



;DECREMENT request count, anyone LEFT 

;yes,data control available 



{WRITING? 



jinterrupt from time flag 

UTIME: CONSO UTC,4000 
JRST DTCINT+1 
SOSL DTREO 
SETOM DTAVAL 
CONO UTC, 
JEN 6»DTCCHL 



AFTER STOP DELAY 



{DECREMENT REQUEST COUNT, IS ANYONE STI 

;yes,dectape control AVAILABL 

JCLR FLAGS 



;SET UP 

DSETAC: 

MOVE 
MOVE 
POPJ 

JRE-DO DECTAPE 

DTREDQ 



NECESSARY OECTAPE ACCUMULATORS 
MOVE DEVDAT, USVDB 
PROG. UPROG 
lOS, DEVIOS(DEVDAT) 
POP, 

IF AN ERROR OCCURED 



DTRD2 



EXTERNAL 
EXTERNAL 
INTERNAL 



COMMAND 

TRC I0S,17 

TRCN I0S,17 

JRST DMPEND 

AOS UERRCN 

JRST DTRD2 

SETZM ERRFLG 

PUSHJ PDP, FILL 

JRST DTCRET 

TRO lOS. lODERR 

TLZE IDS, lOW 

PUSHJ PDP, SETIOD {RELEASE WAIT 

JRST DTCl JSTOP THE TAPE 

DTREQ, DCREQ, OTWAIT. OCWAIT, DTCSAV, DTCRET 
DTAVAL, DCAVAL. OTCCHL, UTBKER, DTCCHN, USRREL 
OTCINT, DTCINI. DTSI2,UBUF 



END; 



{NOT YET 3 ERRORS 

{THIRD ERROR 

{CLEAR FLAG 

{RE-EXECUTE THE COMMAND 

{EXIT 

{SET ERROR INDICATION 



001304 lllllly 001133' 



THFRF ARF MO ERRORS 
PROGRAM BRFAK IS 001305 
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A 

AC1 

AC2 

AC3 

ADRCK 

ADRERR 

ADVBFE 

ADVBFF 

AL 

ASSCON 

ASSPRG 

B 

RLI 

BLO 

BUFPNT 

BUFWRD 

nil 

CI? 

C13 

CLOSB 

CLSIN 

CLSOUT 

C0IMS21 

CPOPJl 



DACI 

DACO 

DAT 

nCAVAL 

DCL 

OCREQ 

new 

OCWAIT 

001 

ODIF 

OOTG 

0DIG2 

OOMPI 

DDMPI2 

0DMPI3 

000 

ODTMEM 

ODTSYM 

ODUMP 

OEN 

OEVADR 

OEVBUF 

OEVCHR 

OEVCTR 

OEVOAT 

OEVIAD 

OEVIOS 

OEVLOG 

OEVMQO 

OEVNAM 



0000PI0 
000015 
000016 
000017 

000001' 

000704' 

000000 

000000 

000001 

400000 

200000 

000014 

001114' 

001113' 

000012 

000013 

001110' 

001111' 

001112' 

002000 

000002 

000001 

001172' 

000033' 

000017 

004010 

003410 

000005 

001230' 

000001 

001227* 

020000 

001147' 

000007 

000472' 

000500' 

000510' 

000757' 

000763' 

001035' 

000006 

000037 

000036 

000727' 

000004 

000007 

000006 

000001 

000011 

000006 

000007 

000002 

000005 

000004 

000000 



INT 
TNT 
INT 
INT 
EXT 
EXT 
FXT 
EXT 
INT 
INT 
INT 
INT 



INT 
INT 



INT 
INT 
INT 

FXT 
INT 



INT 
EXT 
INT 
EXT 
INT 
EXT 
INT 



INT 
INT 
INT 

INT 
INT 
TNT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
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nEVOAD 

nEVPTR 

DEVSER 

HGF 

DIN 

DIRERR 

DLK 

DMPAl 

DMPA2 

DMPADV 

DMPEND 

DMPERR 

DMPRO 

OMPRD0 

DMPRDl 

DMPRDA 

DMPXT 

DOU 

DR 

DRL 

DSFTAC 

DSI 

DSO 

DT 

DTAVAL 

DTCl 

DTCIA 

DTCIR 

DTn2 

DTCCHL 

DTCCHN 

DTCINI 

DTniNT 

DTCONT 

DTCRET 

DTCSAV 

DTP 

DTRD2 

DTREDO 

DTREQ 

DTSIZ 

DTW 

DTWAIT 

DVAVAL 

DVCDR 

DVniR 

DVDIRI 

DVIN 

DVLPT 

DVMTA 

OVOUT 

DVTTY 

DXIT 

DXITI 

EE 



000010 


TNT 


000010 


INT 


000003 


INT 


000012 


INT 


000003 


INT 


000015' 


FXT 


000005 


INT 


000742' 




000752' 




000737' 




001040' 




001102' 




000771' 




001001' 




001010' 




001012' 




000750' 




•'100002 


INT 


000016 


INT 


000000 


INT 


001252' 




000011 


INT 


000010 


INT 


002000 




001247' 


EXT 


001220' 




001227' 




001227' 




001232' 




001251' 


EXT 


001067' 


EXT 


001161' 


INT 


001166' 


INT 


001237' 




001265' 


FXT 


001203' 


FXT 


003000 




001266' 




001256' 




001246' 


FXT 


000001 


INT 


040000 


INT 


001145' 


EXT 


000040 


INT 


100000 


INT 


000004 


INT 


400000 


INT 


000002 


INT 


040000 


INT 


000020 


INT 


000001 


INT 


000010 


INT 


000515' 




000514' 




100000 
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FNP 

FNPT 

ENPT2 

FNPTI 

ENTRB 

FRRFLG 

ERROR 

FRR0R2 

FRRTAL 

Fl 

F2 

F3 

F4 

FILL 

FILL2 

FILLC 

GETF 

GR 

I 

IB 

IBUFB 

INITB 

INPB 

10 

lOACT 

lOBEG 

lORKTL 

lOCON 

lODEND 

lODERR 

lonisc 

lOnONE 

lOnSET 

lOnTER 

lOFNn 

lOFST 

lOIERR 

lOIMPM 

lONRCK 

lORDEL 

lORET 

IDS 

lOSET 

lOSTRT 

lOUSF 

lOW 

lOWC 

lOWS 

ITEM 

JBFADR 

JBFCTR 

JBFPTR 

JBUF 

JDAT 

JDF 



00P!603' 

000567' 

000571 ' 

000620' 

020000 

001124' 

000607' 

000627' 

001123' 

000457' 

000460' 

000461' 

000462' 

000415' 

000450' 

000453' 

000277' 

010000 

000010 

000013 

200000 

400000 

010000 

000020 

010000 

000002 

040000 

000040 

020000 

200000 

400000 

400000 

001154' 

100000 

000040 

000004 

000065' 

400000 

000100 

000100 

000020 

000000 

(7100000 

000010 

400000 

000001 

000020 
400000 
000004 
000000 
000002 
000001 
000005 
000011 
040000 



INT 



INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 

INT 
INT 
INT 
EXT 
INT 
INT 
INT 
INT 
INT 
FXT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
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JERR 

JIOW 

JNA 

JORPFI 

LOOKB 

MTW 

OBUFB 

OUT 

OUTPP 

POP 

PICHN 

PIOMOD 

PROG 

PUN IT 

PUUOAC 

RB 

RD 

RDDA 

RDFW 

RDRM 

RDRV 

READ 

RIT 

RRV 

RUN 

RUNABL 

SETI 

SETIOD 

SETO 

SL 

SV0 

SVl 

SVAC 

SVCNTR 

TAC 

TACl 

TEM 

THSOAT 

TTYATC 

TTYUSE 

UBFG 

UBFG2 

UBFG3 

UBFGX 

UBKN 

UBLK 

UBUF 

UCHA 

UCHN 

UDIR 

UDIR2 

UDIR3 

UDIR4 

UDIREN 

UDIRIN 



(7102000 

100000 

004000 

000703' 

040000 

010000 

100000 

000325* 

004000 

000003 

000100 

000314' 

000007 

000652' 

000063' 

000200 

000300 

000517' 

000551' 

000531' 

000543' 

000527' 

000535' 

000463' 

200000 

204000 

000267' 

001270' 

00C1272' 

220000 

001127' 

001115' 

001130' 

001141' 

000001 

000002 

000010 

000046' 

020000 

010000 

000343' 

000350' 

000370' 

000366' 

001117' 

000001 

001121' 

000042 

000001 

000364' 

000016' 

000022' 

000026' 

000200 

000100 



INT 
INT 
INT 
FXT 
INT 
INT 
INT 
FXT 
INT 
INT 
INT 
EXT 
INT 
FXT 
FXT 



INT 
INT 

EXT 



INT 
INT 
TNT 
FXT 
INT 
INT 
INT 



INT 



EXT 
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UDIRKl 

UDIRLN 

UDIRSH 

UDMP 

UDMP0 

UDMPl 

UDMPIA 

UDMPIB 

UDMPIC 

UDHP2 

UDMPA 

UDMPI 

UDMPI2 

UDMPO 

UDMPRB 

UDVDAT 

UEND 

UEN02 

UENTER 

UERRCN 

UFREE 

UIN 

UINl 

UIN2 

UIN3 

UIN4 

UINTER 

ULINKF 

ULOOK 

ULOOKl 

UNIT 

UNWFRE 

UOFF 

UOUT 

UOUTl 

U0UT2 

U0UT3 

U0UT4 

UPROG 

URniR 

URFV 

USFTR 

USFTW 

USRJDA 

USRMOD 

USRREL 

USVDR 

USVIOS 

UTRERR 

UTRKER 

UTnSP 

UTIMF 

UTPCLR 

UTPCLS 

UTPRFL 



000034' 

000004 

000000' 

001125' 

000640' 

000641' 

000674' 

000676' 

000712 ' 

000723' 

001126' 

001022' 

001033' 

000633' 

001053' 

001122' 

000236' 

000242' 

000052' 

001153' 

001064' 

000204' 

000217' 

000251' 

000254' 

000265' 

001142' 

001000 

000035' 

000041 ' 

001116' 

000400 

000615' 

000125' 

000144' 

000153' 

000167' 

000171' 

001120' 

002000 

010000 

000377' 

000375' 

000064' 

010000 

001026' 

001151' 

001152' 

000373' 

000374' 

000112' 

001244' 

000063' 

000312 ' 

000326' 



INT 
INT 



INT 
EXT 



INT 



EXT 
INT 
EXT 



EXT 
INT 

INT 
INT 
INT 
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UTPRLl 

UTWDR 

UUO 

UXl 

UX? 

UX3 

UXIT 

VEOT 

HAITI 

WD 

WSYNC 

WTDA 

WTFW 

WTRM 

WTRV 



000330' 

000311' 

000014 

000001 

000002 

000005 

000311' 

000002 

000342' 

000700 

000363* 

000523' 

000563' 

000537' 

000555' 



INT 
INT 



FXT 



EXT 



EXT 
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